#!
@a = (1,2,3,4,1,2,3,5,4,7,3);
print "original:\n";
print join("  ",@a);

$b{$_}=1 foreach @a;
@a = keys %b;
print "\nafter erase duplicate:\n";
print join("  ",@a);